(defun 斐波那契 (数)
      (cond ((equal 数 0) 1)
            ((equal 数 1) 1)
            (t (+ (斐波那契 (- 数 1))
                  (斐波那契 (- 数 2))))))
     
(print (斐波那契 16))